From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 9 Jan 2010 23:53:06 +0000 (-0500)
Subject: * man.el (Man-goto-section): Signal error if section not found (Bug#5317).
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~8757
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=59f43e6b8a70c1d5ca06f2004de77ab5027b33b8;p=emacs.git

* man.el (Man-goto-section): Signal error if section not found (Bug#5317).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 935a6104bff..4146f3a905b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-09  Chong Yidong  <cyd@stupidchicken.com>
+
+	* man.el (Man-goto-section): Signal error if the section is not
+	found (Bug#5317).
+
 2010-01-09  Juanma Barranquero  <lekktu@gmail.com>
 
 	* vc-bzr.el (vc-bzr-working-revision): On Windows and MS-DOS, accept
diff --git a/lisp/man.el b/lisp/man.el
index b34ca768707..bc475852808 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -1500,7 +1500,9 @@ Returns t if section is found, nil otherwise."
 		  (string= chosen ""))
 	      default
 	    chosen)))
-  (Man-find-section (aheadsym Man-sections-alist)))
+  (unless (Man-find-section (aheadsym Man-sections-alist))
+    (error "Section not found")))
+
 
 (defun Man-goto-see-also-section ()
   "Move point to the \"SEE ALSO\" section.